Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/source8/mmblob.dfm/mmblob.txt

Text File | 1995-12-22 | 7.5 KB | 379 lines

object BtnBottomDlg: TBtnBottomDlg
  Left = 40
  Top = 79
  BorderStyle = bsDialog
  Caption = 'This example uses mmblob.dbf'
  ClientHeight = 331
  ClientWidth = 567
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object Gauge1: TGauge
    Left = 455
    Top = 214
    Width = 81
    Height = 34
    Kind = gkNeedle
    BorderStyle = bsNone
    ForeColor = clRed
    BackColor = clSilver
    Progress = 0
  end
  object Label3: TLabel
    Left = 70
    Top = 72
    Width = 137
    Height = 25
    Caption = 'ImageLib 2.0'
    Color = clBtnFace
    Font.Color = clGray
    Font.Height = -20
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 44
    Top = 103
    Width = 196
    Height = 13
    Caption = 'Copyright: Kevin Adams and Jan Dekkers'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 52
    Top = 119
    Width = 179
    Height = 13
    Caption = 'Send check or money order of $ 65 to'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 44
    Top = 136
    Width = 192
    Height = 13
    Caption = 'Jan Dekkers, 11956 Riverside Drive 206'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 68
    Top = 152
    Width = 128
    Height = 13
    Caption = 'North Hollywood CA 91607'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = 18
    Top = 25
    Width = 251
    Height = 160
  end
  object Label8: TLabel
    Left = 32
    Top = 56
    Width = 217
    Height = 13
    Caption = 'Jpeg, Gif, Pcx, Bmp, Avi, Mov, Wav, Mid, Rmi'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 88
    Top = 40
    Width = 114
    Height = 13
    Caption = 'Multimedia Blob Support'
    Font.Color = clGray
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object CancelBtn: TBitBtn
    Left = 222
    Top = 291
    Width = 74
    Height = 30
    Caption = 'Exit'
    TabOrder = 0
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Style = bsNew
    Spacing = -1
    IsControl = True
  end
  object DBMediaPlayer1: TDBMediaPlayer
    Left = 44
    Top = 206
    Width = 197
    Height = 25
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
    Display = DBMultiMedia1
    TabOrder = 1
  end
  object DBNavigator1: TDBNavigator
    Left = 17
    Top = 184
    Width = 251
    Height = 23
    DataSource = DataSource1
    TabOrder = 2
  end
  object BitBtn1: TBitBtn
    Left = 11
    Top = 291
    Width = 74
    Height = 30
    Caption = 'Append MM'
    Enabled = False
    TabOrder = 3
    OnClick = BitBtn1Click
    Style = bsNew
  end
  object CheckBox1: TCheckBox
    Left = 294
    Top = 266
    Width = 64
    Height = 17
    Caption = 'Auto Play'
    State = cbChecked
    TabOrder = 4
    OnClick = CheckBox1Click
  end
  object CheckBox2: TCheckBox
    Left = 382
    Top = 266
    Width = 67
    Height = 17
    Caption = 'Auto hide'
    TabOrder = 5
    OnClick = CheckBox2Click
  end
  object BitBtn2: TBitBtn
    Left = 164
    Top = 291
    Width = 58
    Height = 30
    Caption = 'Table'
    TabOrder = 6
    OnClick = BitBtn2Click
    Style = bsNew
  end
  object DBMultiMedia1: TDBMultiMedia
    Left = 17
    Top = 24
    Width = 250
    Height = 161
    JPegDither = 4
    JPegResolution = 8
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    UPdateBlobAsJpeg = True
    AutoPlayMultiMedia = False
    AutoRePlayMultiMedia = False
    AutoHideMediaPlayer = False
    PathForTempFile = 'C:\'
    DataField = 'MEDIA'
    DataSource = DataSource1
    MediaPlayer = DBMediaPlayer1
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object DBEdit1: TDBEdit
    Left = 286
    Top = 24
    Width = 121
    Height = 20
    DataField = 'TEXT1'
    DataSource = DataSource1
    MaxLength = 0
    ReadOnly = True
    TabOrder = 8
  end
  object DBEdit2: TDBEdit
    Left = 286
    Top = 59
    Width = 121
    Height = 20
    DataField = 'TEXT2'
    DataSource = DataSource1
    MaxLength = 0
    ReadOnly = True
    TabOrder = 9
  end
  object DBMemo1: TDBMemo
    Left = 425
    Top = 23
    Width = 135
    Height = 184
    Color = clNavy
    DataField = 'MEMO1'
    DataSource = DataSource1
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object BitBtn3: TBitBtn
    Left = 85
    Top = 291
    Width = 79
    Height = 30
    Caption = 'Change MM'
    Enabled = False
    TabOrder = 11
    OnClick = BitBtn3Click
    Style = bsNew
  end
  object CheckBox3: TCheckBox
    Left = 111
    Top = 266
    Width = 72
    Height = 17
    Caption = 'Auto Load'
    State = cbChecked
    TabOrder = 12
    OnClick = CheckBox3Click
  end
  object CheckBox4: TCheckBox
    Left = 199
    Top = 266
    Width = 75
    Height = 17
    Caption = 'Auto Replay'
    TabOrder = 13
    OnClick = CheckBox4Click
  end
  object BitBtn4: TBitBtn
    Left = 296
    Top = 291
    Width = 116
    Height = 30
    Hint = 'Create a new message and store it in the blob'
    Caption = 'Create New Msg'
    Enabled = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = BitBtn4Click
  end
  object ScrollBar1: TScrollBar
    Left = 3
    Top = 24
    Width = 8
    Height = 183
    Hint = 'Message Speed'
    Kind = sbVertical
    Max = 10
    ParentShowHint = False
    Position = 5
    ShowHint = True
    TabOrder = 15
    Visible = False
    OnChange = ScrollBar1Change
  end
  object Panel1: TPanel
    Left = 321
    Top = 94
    Width = 55
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'File Type'
    TabOrder = 16
  end
  object BitBtn5: TBitBtn
    Left = 412
    Top = 291
    Width = 73
    Height = 30
    Hint = 'Create a message on the fly without storing it in the blob'
    Caption = 'On the fly'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    OnClick = BitBtn5Click
    Style = bsNew
  end
  object Panel2: TPanel
    Left = 281
    Top = 128
    Width = 130
    Height = 20
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'The blobs'#39'size'
    TabOrder = 18
  end
  object BitBtn6: TBitBtn
    Left = 485
    Top = 291
    Width = 73
    Height = 30
    Caption = 'Print'
    TabOrder = 19
    OnClick = BitBtn6Click
    Style = bsNew
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 26
    Top = 24
  end
  object Table1: TTable
    DatabaseName = 'c:\mmblob'
    TableName = 'MMBLOB.DBF'
    Left = 111
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Left = 55
    Top = 24
  end
  object OpenDialog2: TOpenDialog
    FileName = 'mmblob.dbf'
    Filter = 'mmblob.dbf|mmblob.dbf'
    Left = 84
    Top = 24
  end
  object PrintDialog1: TPrintDialog
    Left = 139
    Top = 24
  end
end